<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>165</cardCount>
<cardID>58041</cardID>
<listID>18416</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>function wrongStackget the value of word 2 of the long name of mereturn (it is not line 1 of the stacks)end wrongStackon openstackif wrongStack() then pass openstackinitMepass openstackend openstackon closestackif wrongstack() then pass closestackdeInitMepass closestackend closestackon suspendstackif wrongstack() then pass suspendStackdeInitMepass suspendstackend suspendstackon resumestackif wrongstack() then pass resumeStackinitMepass resumestackend resumestackon initMeif "§Scripts" is not in the stacksInUse thenstart using stack "§Scripts"end ifinitSSif "State-Smart" is in the menus thenenable menuItem "Quiz" of menu "State-Smart"enable menuItem "Quiz Options" of menu "State-Smart"end ifend initMeon doQuizglobal SCORE,QNOglobal QINP, QinpCardglobal totalif QINP is true then showQuestion elseglobal studnameask "Your name?" with studnameput it into studnameput 0 into totalput 0 into SCOREput 0 into QNOdoQuestionend ifend doQuizon doMenu xglobal QINPif (QINP is true) thendoKillQend ifpass doMenuend doMenuon deInitMeif "§Scripts" is in the stacksInUse then stop using stack "§Scripts"reset menubarend deInitMeon showQuestionglobal QinpCard, disptick, FlashCardsif FlashCards then hide card pictif the short name of this bg is not "Info" and ¬QinpCard is empty then exit showQuestionif QinpCard is not empty then go card QinpCardput 0 into fld "•points"if the windows contains "SSNav" then hide window "SSNav"show fld "Quiz field"repeat with i = 1 to 4put "Question"&i into fnput "Answer"&i into bnif the left of bg btn bn is 266 thenset the left of bg btn bn to 245elseset the left of bg btn bn to 266end ifshow fld fnshow bg btn bnend repeatshow bg btn "Abort"put the ticks into disptickend showQuestionon setQuiz--assumes the quiz button numbers are contiguousglobal VSQ, SQPW --virgin SETQUIZ, and SQ passwordif VSQ thenask "Enter the password you will use for this op"if the result is "Cancel" then exit setQuizput it into SQPWput false into VSQend ifif SQPW is not empty thenask "Password to modify quiz?"if it is not SQPW then exit setQuizend ifglobal theCdput the name of this cd into theCdlock screenglobal NUMOPT,ATCNOgo cd "US home"show cd fld "Quiz Box"repeat with i = 0 to (NUMOPT-1)show cd btn (ATCNO+i)end repeatend setQuizon makeMapput the userlevel into tempulset the userlevel to 5get the script of bg "blank"put it into svscrptset the script of bg "blank" to emptylock screenput the short name of this cd into tcput the number of chars in tc into clenput "B-"& char 3 to clen of tc into bnamepush cdgo cd bnameif the result is not empty thenanswer "New Map works from info cards only"pop cdset the script of bg "blank" to svscrptset the userLevel to tempulexit makeMapend ifhide msg box --just in caseshow cd pictdoMenu "Copy Card"pop cddoMenu "Paste Card"set the name of this cd to emptyset cantDelete of this cd to Falseset the script of bg "blank" to svscrptset the userlevel to tempulunlock screen with visual dissolve slow to cdend makeMapon doQuestion -- generate one questionglobal correct¬,fname¬,ckey¬,fsttry¬,QINP¬,region¬,LR¬,LC¬,Category¬,QinpCard¬,disptick¬,FlashCards¬,StateIdlock screenif StateId is true thenput true into fsttryput true into QINPdoStateIdexit doQuestionend if--select a state at randomrepeatgo any cd of bg "Info"if the short name of this card is not "I-US" then exit repeatend repeatset the lockMessages to trueif LR then ---code for handling limited regionsput false into okrepeat until okset cursor to busyrepeat with i = 1 to 6if (item i of region is fld "•Region") and¬(the short name of this card is not "I-US") thenput true into okend ifend repeatif not ok then go to any cd of bg"Info"end repeatend ifput the short name of this cd into tcardif Flashcards is true thenput "NAME" into fnameelse--select a field at random not area codes or the Quiz stuffput "•Area Codes" into fnameput false into Restrictrepeat while char 1 of fname is "Q" or char 1 of fname is "•"¬or Restrictput the short name of any bg fld into fnameif LC then --check to see if Category Limitation is in effectput true into Restrictset cursor to busyput 13 into NUMCATS --change this!!!!!repeat with i = 1 to NUMCATSif item i of Category is fname then put false into Restrictend repeatend ifend repeatend ifif the visible of bg btn fname is false thenput true into ckeyclick at the loc of bg btn fname with commandkeyput false into ckeyend ifhide fld fnameput the random of 4 into correctput "Question"&correct into aflset the locktext of fld afl to falseput bg field fname into fld aflset the locktext of fld afl to true--show the hidden fields and buttonsshow bg field "Quiz field"put tcard into item correct of cnlistrepeat with i = 1 to 4put "Answer"&i into bnshow bg btn bnset the hilite of bg btn bn to falseput "Question"&i into fnshow bg fld fn--generate the dummy answers from same field of other cardsif i is not correct thenput tcard into ncardpush cdrepeat until ncard is not in cnlist --dont repeat the distractorsset cursor to busygo to any cd of bg "Info"put the short name of this cd into ncardput fld fname into tempif temp = bg fld fname of cd tcard thenput tcard into ncardend ifend repeatpop cdput ncard into item i of cnlistset the locktext of bg fld fn to falseput temp into fld fnset the locktext of fld fn to trueend ifend repeatput true into fsttryput true into QINPput tcard into QinpCardshowQuestionif not FlashCards then unlock screen with visual dissolve slow to cdset cursor to hand --?set the lockMessages to falseif not FlashCards thenflash fnameelseput "B" into char 1 of tcardpush cardput the ticks into disptickgo cd tcardshow cd pictshow bg btn "ready"unlock screenset the lockMessages to truewait until the mouseclickhide bg btn "ready"lock screenpop cdhide cd pictset the lockMessages to falseunlock screen with visual dissolve slow to cddoQuizend ifclick at the clicklocend doQuestionon flash fnameglobal FlashCardsif fname is "NAME" and not FlashCards thenrepeat until the mouseclickhide cd pictureshow cd pictureend repeatelserepeat until the mouseclickset the hilite of bg btn fname to not the hilite of bg btn fnameset the hilite of bg btn fname to not the hilite of bg btn fnamewait 5end repeatend ifend flashon doStateIdgo cd "US home"if the visible of cd fld "Quiz Box" is true thensend mouseUp to cd fld "Quiz Box"end ifglobal ckey --fakes the commandkeyglobal dispticklock screengo cd "US HOME"repeat with i = 2 to 51set the cursor to busyset the showname of cd btn i to Falseend repeatput true into ckey --fakes the command keypush cdput "U.S.A." into namerepeat while name is "U.S.A."go any cd of bg "Info"put fld "NAME" into nameend repeatput the short name of this card into cnpop cdput name into cd fld "State name"put char 3 to 4 of cn into cd fld "State Id"show cd fld "State name"put true into ckeyput the ticks into disptickunlock screenend doStateIdfunction checkAnswer dumglobal QS, ATC, KS, SCORE, QNO, snd, disptick, uptick, totalglobal bpressed, correct, fsttry, StateId, FlashCardsif bpressed is correct thenif snd then play "harpsichord" c5if ((FlashCards is true) and (the short name of this bg is "Info")) thenif the visible of bg fld "•lyrics" is false then show cd pictend ifif fsttry thenadd 1 to SCOREput uptick-disptick into bonusadd bonus to totalput total into fld "•points"if the short name of this card is "US Home" thenhide cd pictend ifshow fld "•points"if snd thenput trunc(700/bonus) into nrepeat with i = 1 to nplay "harpsichord" g5send repeatend ifif the short name of this card is "US Home" thenshow cd pictend ifend ifadd 1 to QNOcleanUpput true into corelseif snd then play "harpsichord" c3put false into corif ATC is false thenif StateId is false then cleanUpadd 1 to QNOend ifend ifput false into fsttryif QS = QNO thenglobal studname, StateIdif StateId is true then cleanUSHomeif KS is true thenput SCORE/QNO * 100 into percentanswer "Score: "&percent&&"Percent" with "OK"lock screengo cd "Score-Card"put studname & RETURN after cd fld "studname"put Qtype() & RETURN after cd fld "testtype"global LCput SPACE & SPACE & SPACE & SPACE & SPACE & SPACE into sixbif (StateId is true) or (FlashCards is true) thenput sixb & " - " & sixb after cd fld "restrictions"else if LC is false thenput sixb & " all " & sixb & sixb after cd fld "restrictions"elseput binit("cat") & SPACE after cd fld "restrictions"end ifglobal LRif (StateId is true) or (FlashCards is true) thenput sixb & sixb & " - " & RETURN after cd fld "restrictions"else if LR is false thenput sixb & sixb & " all " & RETURN after cd fld "restrictions"elseput " " & binit("reg") & RETURN after cd fld "restrictions"end ifput percent & RETURN after cd fld "score"go backunlock screenif percent is 100 thenglobal sndif snd then play "Harpsichord" "c5q c a#4e a aq g#e a ah"if not StateId then send mouseUp to bg btn "Fireworks"HallofFameend ifend if --<if KS is true>end if --<if QS == QNO>return corend checkAnsweron HallofFameglobal QS, studnameput word 1 of fld "•points" into totalput total div QS into avtimerepeat with i = 1 to 10set the cursor to busyput word 1 of line i of cd fld "HOF" of cd "HOF" into numif (avtime < num) or (num is "infinity") thenput avtime && studname & RETURN before line i of cd fld "HOF" of cd "HOF"go cd "HOF"set the cursor to handwait until the mouseclickclick at the loc of cd btn "OK"exit HallofFameend ifend repeatend HallofFameon goTopo--put the short name of this card into tname-- put "T-" & char 3 to 4 of tname into tname-- visual effect dissolve fast-- go card tname of stack "§Topography"goTopend goTopoon goRegget the random of 3if it is 1 thenput "T-" into pfxput "§Topography" into snelse if it is 2 thenput "C-" into pfxput "§Cities" into snelseput "X-" into pfxput "§Contours" into snend ifput pfx & bkgnd field "•region" into tnvisual iris close slowif there is a stack sn then go card tn of stack snif the result is not empty then beepend goRegon goUSAvisual effect iris close slowgo card "US home"end goUSAfunction QType dumglobal FlashCards, StateIdif FlashCards thenreturn "FC"else if StateId thenreturn "SI"elsereturn "DF"end ifend QTypefunction binit dumglobal NONO,SWNO,NAMENO,SONGNOif dum = "cat" then --do the categoriesput NAMENO into minput SONGNO into maxelseput NONO into min --do the regionsput SWNO into maxend ifput 0 into jput "" into answerrepeat with i = min to max--make a bitmapif the hilite of cd btn i of cd "US home" is true thenput answer & "√" into answerelseput answer & "-" into answerend ifadd 1 to jend repeatreturn answerend biniton showtime--give a showset the lockMessages to true --hopefully so we can't be abortedput the icon of the target into biknrepeat with i = 1 to param(1) - 1set the icon of the target to bikn + iwait param(2)end repeatif param(3) = "back" thenrepeat with i = 1 to param(1) - 1set the icon of the target to bikn + Param(1) - i -1wait param(2)end repeatend ifset the lockMessages to falseend showtime</script>
